home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  548b  |  18 lines
  1. 10 PRINT"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  2. 20 GOSUB 50000
  3. 30 PRINT"";BE$
  4. 40 GOTO20
  5. 50000 TI$="000000":BE$="":POKE198,0:POKE211,0:POKE214,18:SYS58732:PRINT"> [164]";
  6. 50010 GETX$:IFPEEK(203)=1THEN50110
  7. 50020 IFTI$>"000030"THEN50110
  8. 50030 IFX$=""THEN50010
  9. 50040 IFLEN(BE$)=0ANDASC(X$)=20THEN50010
  10. 50050 I=ASC(X$):IFI<65ORI>90THENIFI<>20ANDI<>32ANDI<>34THEN50010
  11. 50060 BE$=BE$+X$
  12. 50070 PRINTCHR$(20);X$;"[164]";
  13. 50080 IFI=20THENBE$=LEFT$(BE$,LEN(BE$)-2):GOTO50010
  14. 50090 TI$="000000":IFLEN(BE$)>76THENFORI=1TO80:PRINTCHR$(20);:NEXT:GOTO50000
  15. 50100 GOTO50010
  16. 50110 PRINT:PRINT"[145]                                        ";
  17. 50120 PRINT"                                        ":RETURN
  18.